REBOL[]

print now/precise
if system/script/args[
 set-modes system/ports/input [binary: true]
 probe as-string copy system/ports/input
]
print now/precise
if not system/script/args[
 wait 4 quit
]